object frmMainStyles: TfrmMainStyles
  Left = 0
  Top = 0
  Caption = 'Vcl Styles Demo'
  ClientHeight = 535
  ClientWidth = 719
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object pgc1: TPageControl
    Left = 0
    Top = 0
    Width = 719
    Height = 535
    ActivePage = ts2
    Align = alClient
    TabOrder = 0
    object ts1: TTabSheet
      Caption = 'Loaded Styles'
      DesignSize = (
        711
        507)
      object lstLoadedStyles: TListBox
        Left = 8
        Top = 0
        Width = 700
        Height = 470
        Anchors = [akLeft, akTop, akRight, akBottom]
        ItemHeight = 13
        TabOrder = 0
      end
      object btnBtnApply: TButton
        Left = 3
        Top = 476
        Width = 82
        Height = 25
        Anchors = [akLeft, akBottom]
        Caption = 'Apply'
        TabOrder = 1
        OnClick = btnBtnApplyClick
      end
    end
    object ts2: TTabSheet
      Caption = 'Read Styles from folder'
      ImageIndex = 1
      DesignSize = (
        711
        507)
      object btnBtnRegister: TButton
        Left = 3
        Top = 481
        Width = 110
        Height = 25
        Anchors = [akLeft, akBottom]
        Caption = 'Register and Set'
        TabOrder = 0
        OnClick = btnBtnRegisterClick
      end
      object lstDiskStyles: TListBox
        Left = 3
        Top = 3
        Width = 705
        Height = 475
        Anchors = [akLeft, akTop, akRight, akBottom]
        ItemHeight = 13
        TabOrder = 1
      end
    end
    object ts3: TTabSheet
      Caption = 'Style Info'
      ImageIndex = 2
      object lv1: TListView
        Left = 0
        Top = 3
        Width = 265
        Height = 478
        Columns = <
          item
            Caption = 'Style'
            Width = 150
          end
          item
            Caption = 'Color'
            Width = 100
          end>
        ReadOnly = True
        RowSelect = True
        SmallImages = il1
        TabOrder = 0
        ViewStyle = vsReport
      end
      object btn1: TButton
        Left = 564
        Top = 466
        Width = 75
        Height = 25
        Caption = 'Refresh'
        TabOrder = 1
        OnClick = btn1Click
      end
    end
  end
  object il1: TImageList
    Left = 288
    Top = 88
  end
end
